home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / QWIK.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.3 KB  |  177 lines
  1. 9 POKE53280,0:POKE53281,0:PRINT"[147][129]"
  2. 10 PRINT"QWIK!":PRINT"      BY  M. HARMON":
  3. 11 PRINT:PRINT"        INSTRUCTIONS?"
  4. 12 GETK$:IFK$=""THEN12
  5. 13 IFK$<>"Y"THEN28
  6. 14 PRINT"[147]   QWIK! IS A TWO-PLAYER GAME."
  7. 15 PRINT"   THE OBJECT IS SIMPLE: BE THE FIRST"
  8. 16 PRINT"    PLAYER TO CHANGE ALL OBJECTS TO"
  9. 17 PRINT"    YOUR COLOR ON 5 OF THE "
  10. 18 PRINT"    8 LEVELS. SOME OBJECTS POINT"
  11. 19 PRINT"    EITHER UP OR DOWN TO THE NEXT"
  12. 20 PRINT"    LEVEL. PRESSING THE FIRE-BUTTON"
  13. 21 PRINT"    WHILE OVER THE OBJECT WILL"
  14. 22 PRINT"    MOVE YOU IN THAT DIRECTION."
  15. 23 PRINT:PRINT"   TWO JOYSTICKS ARE REQUIRED:"
  16. 24 PRINT"    BLUE IN PORT ONE,"
  17. 25 PRINT"    RED IN PORT TWO."
  18. 26 PRINT:PRINT"   PRESS ANY KEY TO START."
  19. 27 GET K$:IFK$=""THEN27
  20. 28 PRINT"[147][129]  PLEASE WAIT . . ."
  21. 29 X=49152
  22. 30 READZ:IFZ<256THENPOKEX,Z:X=X+1:GOTO30
  23. 31 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
  24. 32 FORI=0TO503
  25. 33 POKE12288+( 64*8)+I,PEEK(53248+I)
  26. 35 NEXTI
  27. 40 FORI=0TO7:POKE12288+(31*8)+I,(PEEK(50496+I)):NEXTI
  28. 41 FORI=0TO7:X=PEEK(50504+I)
  29. 42 POKE12288+I,X:POKE12288+8+I,X:POKE12288+16+I,X:POKE12288+24+I,X
  30. 43 POKE12288+32+I,X:POKE12288+40+I,X:POKE12288+48+I,X:POKE12288+56+I,X:NEXTI
  31. 44 FORI=0TO7:X=PEEK(50512+I)
  32. 45 POKE12288+64+I,X:POKE12288+72+I,X:NEXTI
  33. 46 FORI=0TO7:X=PEEK(50520+I)
  34. 47 POKE12288+80+I,X:POKE12288+88+I,X:NEXTI
  35. 48 FORI=0TO7:POKE12288+(32*8)+I,0:NEXTI
  36. 50 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
  37. 51 POKE53272,(PEEK(53272)AND240)+12
  38. 60 POKE53248+21,0:SYS50922
  39. 399 GOTO 1172
  40. 900 X=PEEK(16038)
  41. 910 IFX<>1THENGOTO920
  42. 911 CX=2:GOSUB950:POKESC,82:POKESC+1,69:POKESC+2,68:SC=SC-1:GOSUB960
  43. 912 GOTO940
  44. 920 IFX<>2THENGOTO930
  45. 921 CX=6:GOSUB950:POKESC,66:POKESC+1,76:POKESC+2,85:POKESC+3,69:GOSUB960
  46. 922 GOTO940
  47. 930 GOTO 1200
  48. 940 FORT=0TO500:NEXTT
  49. 941 GETK$:IFK$<>" " THEN941
  50. 942 GOTO60
  51. 950 SC=1064:CC=55336:FORI=0TO10:POKECC+I,CX:NEXTI
  52. 952 RETURN
  53. 960 POKESC+4,96:POKESC+5,87:POKESC+6,73:POKESC+7,78:POKESC+8,83:POKESC+9,97
  54. 961 RETURN
  55. 1172 GOTO 900
  56. 1200 SYS50777
  57. 1201 GOTO1172
  58. 8000 DATA 24,173,0,62,133,252,169,64,133,253,24,169,0,162,8,106,102,252
  59. 8001 DATA 144,3,24,101,253,202,16,245,133,253,24,165,252,133,251,165,253,133
  60. 8002 DATA 252,173,3,62,133,253,173,4,62,133,254,24,165,251,101,253,133,251,165
  61. 8003 DATA252,101,254,133,252,24,173,9,62,133,253,173,10,62,133,254,162,0,24
  62. 8004 DATA165,253,105,0,133,172,165,254,105,212,133,173,24,160,0,177,251,24
  63. 8005 DATA 201,64,144,7,169,2,145,172,76,118,192,201,32,144
  64. 8006 DATA 7,169,6,145,172,76,118,192,169,7,145,172,24,177,251
  65. 8007 DATA 41,15,145,253,24,200,192,8,144,214,24,232,224,8,176
  66. 8008 DATA 29,24,169,8,101,251,133,251,169,0,101,252,133,252
  67. 8009 DATA 24,169,40,101,253,133,253,169,0,101,254,133,254,76
  68. 8010 DATA 73,192,96,24,173,5,62,141,9,62,173,6,62,141,10,62
  69. 8011 DATA 32,0,192,173,7,62,141,9,62,173,8,62,141,10,62,173
  70. 8012 DATA 1,62,141,0,62,32,0,192,96,24,173,19,62,133,251,173
  71. 8013 DATA 20,62,133,252,169,31,160,0,145,251,204,2,62,240,6
  72. 8014 DATA 200,76,220,192,169,32,24,145,251,192,7,240,4,200
  73. 8015 DATA 76,231,192,96,24,173,0,62,141,2,62,169,129,141,19
  74. 8016 DATA 62,169,5,141,20,62,32,205,192,173,1,62,141,2,62,169
  75. 8017 DATA 73,141,19,62,169,6,141,20,62,32,205,192,234,32,167
  76. 8018 DATA 192,96,24,160,0,24,185,27,62,133,253,32,128,193,24
  77. 8019 DATA 185,23,62,101,252,153,0,208,200,24,192,5,144,232
  78. 8020 DATA 24,160,0,185,0,208,153,4,208,200,192,5,144,245,24
  79. 8021 DATA 173,0,62,205,1,62,208,8,169,15,141,21,208,76,96,193
  80. 8022 DATA 169,3,141,21,208,32,245,192,96,24,173,3,62,133,251
  81. 8023 DATA 173,4,62,133,252,169,0,141,161,62,141,162,62,32,149
  82. 8024 DATA 193,169,0,141,166,62,96,24,169,0,162,8,134,252,106
  83. 8025 DATA 102,252,144,3,24,101,253,202,16,245,133,253,96,24
  84. 8026 DATA 160,0,177,251,205,31,62,176,14,205,32,62,176,21,200
  85. 8027 DATA 24,192,64,208,238,76,197,193,24,169,1,109,161,62
  86. 8028 DATA 141,161,62,76,164,193,24,169,1,109,162,62,141,162
  87. 8029 DATA 62,76,164,193,24,169,64,205,161,62,208,5,169,2,76
  88. 8030 DATA 222,193,205,162,62,208,5,169,6,76,222,193,169,7,172
  89. 8031 DATA 163,62,32,129,194,24,169,1,109,163,62,141,163,62
  90. 8032 DATA 24,173,163,62,201,8,240,24,169,0,141,161,62,141,162
  91. 8033 DATA 62,24,169,64,101,251,133,251,169,0,101,252,133,252
  92. 8034 DATA 76,149,193,169,0,141,163,62,96,24,32,100,193,24,169
  93. 8035 DATA 0,141,164,62,141,165,62,160,0,24,185,11,62,201,2
  94. 8036 DATA 240,13,201,6,240,15,200,24,192,8,208,238,76,67,194
  95. 8037 DATA 238,164,62,76,46,194,238,165,62,76,46,194,24,173
  96. 8038 DATA 164,62,201,5,240,9,24,173,165,62,201,5,240,6,96,169
  97. 8039 DATA 1,76,91,194,169,2,141,166,62,96,234,234,24,173,167
  98. 8040 DATA 62,141,0,62,173,168,62,141,1,62,32,33,193,173,167
  99. 8041 DATA 62,141,0,62,173,168,62,141,1,62,32,19,194,96,153
  100. 8042 DATA 225,217,153,11,62,96,174,169,62,189,0,220,41,15,141
  101. 8043 DATA 171,62,189,0,220,41,16,24,201,0,240,87,76,160,195
  102. 8044 DATA 169,0,133,251,169,60,133,252,172,172,62,24,192,0
  103. 8045 DATA 240,17,24,169,64,101,251,133,251,169,0,101,252,133
  104. 8046 DATA 252,136,76,171,194,172,173,62,24,192,0,240,17,24
  105. 8047 DATA 169,8,101,251,133,251,169,0,101,252,133,252,136,76
  106. 8048 DATA 196,194,24,173,174,62,101,251,133,251,169,0,101,252
  107. 8049 DATA 133,252,234,160,0,177,251,234,41,15,141,175,62,96
  108. 8050 DATA 32,160,194,173,175,62,24,201,10,176,7,201,8,176,9
  109. 8051 DATA 76,15,195,238,172,62,76,15,195,206,172,62,160,0,185
  110. 8052 DATA 172,62,24,201,255,208,8,169,0,153,172,62,76,42,195
  111. 8053 DATA 201,8,208,5,169,7,153,172,62,200,24,192,3,208,225
  112. 8054 DATA 173,172,62,24,205,176,62,208,40,173,169,62,32,136
  113. 8055 DATA 195,234,170,173,174,62,24,221,27,62,208,23,173,173
  114. 8056 DATA 62,24,221,28,62,208,14,160,0,185,177,62,153,172,62
  115. 8057 DATA 200,24,192,3,208,244,32,160,194,173,175,62,133,253
  116. 8058 DATA 169,0,133,254,173,169,62,24,201,1,240,5,169,64,76
  117. 8059 DATA 124,195,169,32,24,101,253,133,253,160,0,145,251,96
  118. 8060 DATA 234,234,24,201,1,208,3,169,0,96,169,2,96,234,234
  119. 8061 DATA 255,0,0,255,255,0,0,255,255,0,0,173,171,62,24,201
  120. 8062 DATA 7,240,15,201,11,240,17,201,13,240,19,201,14,240,21
  121. 8063 DATA 76,204,195,238,174,62,76,204,195,206,174,62,76,204
  122. 8064 DATA 195,238,173,62,76,204,195,206,173,62,76,15,195,234
  123. 8065 DATA 169,0,133,251,169,60,133,252,169,7,141,180,62,32
  124. 8066 DATA 190,224,165,140,69,141,69,142,69,143,24,201,12,144
  125. 8067 DATA 5,233,12,76,232,195,172,180,62,145,251,24,192,0,240
  126. 8068 DATA 6,206,180,62,76,221,195,160,7,24,177,251,201,8,176
  127. 8069 DATA 8,136,192,255,240,3,76,216,195,24,169,8,101,251,133
  128. 8070 DATA 251,169,0,101,252,133,252,165,252,24,201,62,208,177
  129. 8071 DATA 96,24,169,64,133,251,169,3,133,252,169,0,133,253
  130. 8072 DATA 169,197,133,254,160,0,177,253,145,251,200,24,192
  131. 8073 DATA 64,208,246,169,0,141,3,62,169,60,141,4,62,169,95
  132. 8074 DATA 141,5,62,169,4,141,6,62,169,63,141,7,62,169,6,141
  133. 8075 DATA 8,62,141,40,208,141,42,208,169,2,141,39,208,141,41
  134. 8076 DATA 208,169,13,141,248,7,141,249,7,141,250,7,141,251
  135. 8077 DATA 7,169,255,141,27,208,160,0,169,0,153,11,62,200,24
  136. 8078 DATA 192,8,208,247,169,64,141,31,62,169,32,141,32,62,169
  137. 8079 DATA 0,141,174,62,169,144,141,23,62,141,25,62,169,65,141
  138. 8080 DATA 24,62,169,161,141,26,62,169,0,133,251,169,4,133,252
  139. 8081 DATA 170,234,160,0,169,32,145,251,200,24,192,232,240,10
  140. 8082 DATA 192,0,208,242,230,252,232,76,190,196,24,224,7,208
  141. 8083 DATA 231,169,0,141,32,208,141,33,208,169,217,133,252,169
  142. 8084 DATA 129,133,251,162,0,160,0,169,2,145,251,160,200,169
  143. 8085 DATA 6,145,251,230,251,232,24,224,8,208,236,96,234,234
  144. 8086 DATA 255,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129
  145. 8087 DATA 0,0,129,0,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  146. 8088 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,30
  147. 8089 DATA 30,30,30,30,30,30,30,0,24,62,126,126,62,24,0,0,0
  148. 8090 DATA 0,0,126,60,24,0,0,24,60,126,0,0,0,0,0,0,255,255,0
  149. 8091 DATA 0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0
  150. 8092 DATA 255,255,0,0,255,255,11,11,239,79,0,0,255,255,0,0
  151. 8093 DATA 255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,255
  152. 8094 DATA 255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,255
  153. 8095 DATA 0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,0
  154. 8096 DATA 0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,186
  155. 8097 DATA 0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0
  156. 8098 DATA 255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,255
  157. 8099 DATA 255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,255
  158. 8100 DATA 138,139,239,255,24,169,27,133,251,169,62,133,252
  159. 8101 DATA 160,0,169,0,145,251,200,145,251,200,169,7,145,251
  160. 8102 DATA 200,145,251,169,167,133,251,160,0,169,0,145,251,200
  161. 8103 DATA 169,7,145,251,234,234,24,169,64,109,0,60,141,0,60
  162. 8104 DATA 24,169,32,109,255,61,141,255,61,234,234,234,169,225
  163. 8105 DATA 133,251,169,5,133,252,160,0,169,31,24,145,251,200
  164. 8106 DATA 192,8,208,249,234,234,32,97,194,24,173,27,62,141
  165. 8107 DATA 174,62,141,179,62,173,28,62,141,173,62,141,178,62
  166. 8108 DATA 173,167,62,141,172,62,141,177,62,173,168,62,141,176
  167. 8109 DATA 62,169,0,141,169,62,32,136,194,234,173,174,62,141
  168. 8110 DATA 27,128,173,173,62,141,28,128,173,172,62,141,167,128
  169. 8111 DATA 234,173,29,62,141,174,62,141,179,62,173,30,62,141
  170. 8112 DATA 173,62,141,178,62,173,168,62,141,172,62,141,177,62
  171. 8113 DATA 234,173,167,128,141,176,62,169,1,141,169,62,32,136
  172. 8114 DATA 194,234,173,27,128,141,27,62,173,28,128,141,28,62
  173. 8115 DATA 173,167,128,141,167,62,173,174,62,141,29,62,173,173
  174. 8116 DATA 62,141,30,62,173,172,62,141,168,62,32,97,194,96,24
  175. 8117 DATA 32,40,196,32,208,195,32,0,198,96,234,234,234,234
  176. 8999 DATA 256
  177.